home *** CD-ROM | disk | FTP | other *** search
/ Publication 11 / Publication_11_19xx_-_de_Side_B.d64 / basic bites [+h] (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  17KB  |  195 lines
  1. 1 goto 100
  2. 5 for a=0to100:next:return
  3. 10 for a=0to200:next:return
  4. 20 for a=0to1000:next:return
  5. 30 for a=0to2000:next:return
  6. 100 print"[147]":poke53280,0:poke53281,0:poke53272,20
  7. 200 print"[152]c:[205]>";:gosub 30
  8. 300 print"c";:gosub10:print"d";:gosub10:print" p";:gosub10:print"l";:gosub10
  9. 400 print"u";:gosub10:print"s";:gosub10:print"h":gosub10
  10. 500 print"[152]c:[205]plush>";:gosub 20
  11. 600 print"b";:gosub10:print"a";:gosub10:print"s";:gosub10:print"i";:gosub10
  12. 700 print"c";:gosub10:print".";:gosub10:print"e";:gosub10
  13. 800 print"x";:gosub10:print"e"
  14. 900 print" ";:forb=0to8:print"[157][164]";:gosub 10:print"[157] ";:gosub 10:next
  15. 950 print:print" protected mode disabled":gosub 10:print"[164]";:gosub10:print"[157] ":gosub10
  16. 1000 print" processor slow down to 0.98mhz":gosub10
  17. 1100 print"[164]";:gosub10:print"[157] ":gosub10
  18. 1200 print"[164]";:gosub10:print"[157] ";:gosub10
  19. 1300 print" ems switched off"
  20. 1350 print"[164]";:gosub10:print"[157] ":gosub10
  21. 1400 print" 64kb memory used for 'basic.exe'"
  22. 1450 print"[164]";:gosub10:print"[157] ":gosub10
  23. 1500 forb=0to20:print"[164]";:gosub5:print"[157] ":nextb
  24. 1550 rem
  25. 1600 rem - -------- main ---------- -
  26. 1700 rem
  27. 1800 sys (3*4096)
  28. 2000 print"[147]"
  29. 2100 print"    [213][195][195][156][195][154][195][201][213][159][195][153][201]  [213][195][201] [213][195][201][213][195][195][195][195][201] [213][195][201] [213][195][201]"
  30. 2200 print"    [194]    [159][194][194] [194]  [194] [194] [194] [194][194]    [194] [194] [194] [194] [194]"
  31. 2300 print"    [156][194] [176][201] [194][194] [194]  [194] [194] [194] [194][194] [176][195][195][154][203] [159][194][154] [194] [194] [194]"
  32. 2400 print"    [154][194] [173][203] [194][194] [194]  [194] [194] [194] [194][194] [173][195][195][201] [194] [173][195][189] [194]"
  33. 2500 print"    [159][194]    [194][194] [194]  [194] [194] [194] [194][194]    [194] [194]     [194]"
  34. 2600 print"    [153][194] [176][195][195][203][194] [173][195][201][194] [173][195][189] [194][202][195][195][174] [194] [194] [176][195][174] [194]"
  35. 2700 print"    [194] [194]   [194]   [194][194]     [194][213][195][195][189] [194] [194] [194] [194] [194]"
  36. 2800 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";:gosub20:print
  37. 2900 print "                presents:":print:print:print:gosub 20
  38. 3000 for c= 0 to 3
  39. 3100 for b=1to15 step .4
  40. 3200 print tab(b)"[145] [151][195][152][195][155][195][153][195] basic bites ! [155][195][153][195][152][195][151][195] "
  41. 3300 next b:print"[145]":gosub 5
  42. 3400 for b=14 to 1 step -.4
  43. 3500 print tab(b)"[145] [151][195][152][195][155][195][153][195] basic bites ! [155][195][153][195][152][195][151][195] "
  44. 3600 next b:gosub 5
  45. 3700 next c
  46. 3800 for b=1 to 8.5 step .4
  47. 3900 print tab(b)"[145] [151][195][152][195][155][195][153][195] basic bites ! [155][195][153][195][152][195][151][195] "
  48. 4000 next b:gosub 20
  49. 4050 for a=0 to 25:print:next
  50. 4100 rem ---- goin' on ---
  51. 4150 print""
  52. 4160 for d=0to2
  53. 4200 for b = 0 to 15
  54. 4300 print tab(15)"        "
  55. 4400 print tab(15)" shadow"
  56. 4500 print tab(15)" [156]shadow"
  57. 4600 print tab(15)" [154]shadow":print"[145][145][145]";
  58. 5000 next:gosub5
  59. 5300 print tab(15)"        "
  60. 5500 print tab(15)" [156]shadow"
  61. 5600 print tab(15)" [154]shadow"
  62. 5650 print"[145][145]";:gosub 5
  63. 5900 printtab(15)"        ":print"[145]";
  64. 6300 print tab(15)" [154]shadow"
  65. 6500 print tab(15)" [156]shadow"
  66. 6600 print tab(15)"        ":print"[145][145][145][145]";
  67. 7200 for b = 0 to 15
  68. 7400 print tab(15)" [154]shadow"
  69. 7500 print tab(15)" [156]shadow"
  70. 7600 print tab(15)" shadow"
  71. 7650 print tab(15)"        ":rem
  72. 7660 print"[145][145][145][145][145]";
  73. 7700 next b
  74. 7800 next d
  75. 7999 j=100
  76. 8000 poke 53280,6:poke53281,6:fori=0toj:next
  77. 8010 print""tab(15)"       ":printtab(15)"   of[160]  "
  78. 8020 poke 53280,14:poke53281,14:fori=0toj:next
  79. 8030 print""tab(15)"        ":printtab(15)"[154]   of   "
  80. 8040 poke 53280,4:poke53281,4:fori=0toj:next
  81. 8050 print""tab(15)"       ":printtab(15)"[156] [160] of   "
  82. 8100 poke 53280,6:poke53281,6:fori=0toj:next
  83. 8110 print""tab(15)"       ":printtab(15)"  the  "
  84. 8120 poke 53280,14:poke53281,14:fori=0toj:next
  85. 8130 print""tab(15)"       ":printtab(15)"[154]  the "
  86. 8140 poke 53280,4:poke53281,4:fori=0toj:next
  87. 8150 print""tab(15)"      ":printtab(15)"[156]  the  "
  88. 8160 poke 53280,6:poke 53281,6:fori=0toj:next
  89. 8170 print""tab(15)"       ":printtab(15)" brix! "
  90. 8180 poke 53280,14:poke53281,14:fori=0toj:next
  91. 8190 print""tab(15)"       ":printtab(15)"[154] brix! "
  92. 8200 poke 53280,4:poke53281,4:fori=0toj:next
  93. 8210 print""tab(15)"      ":printtab(15)"[156] brix! "
  94. 8220 poke 53280,0:poke 53281,0:gosub20
  95. 8400 :
  96. 8410 :
  97. 8420 :
  98. 8430 print"[147][155][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  99. 8440 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  100. 8442 print"[155][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  101. 8444 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
  102. 8450 print"[152]was about ein fullscreen-plasma!"
  103. 8460 gosub 20:print"nixxx, gelle?":gosub20
  104. 8470 :
  105. 8480 :
  106. 8490 :
  107. 8500 print"[147]":poke 53265,91
  108. 8505 a$=" [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160]"
  109. 8506 b$="[160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] "
  110. 8507 c$=" [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160]"
  111. 8508 d$="[160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] "
  112. 8510 poke53280,0:poke 53281,0:poke53282,0:poke53283,0:poke 53284,0
  113. 8520 fori=0to3:printa$;b$;c$;d$;c$;b$;:next
  114. 8760 fori=0to50
  115. 8770 poke 53281,10:poke53282,2:poke53283,9:poke 53284,0
  116. 8780 poke 53282,10:poke53283,2:poke53284,9:poke 53281,0
  117. 8790 poke 53283,10:poke53284,2:poke53281,9:poke 53282,0
  118. 8800 poke 53284,10:poke53281,2:poke53282,9:poke 53283,0        
  119. 8810 next
  120. 8820 :
  121. 8830 print"[147]"
  122. 8899 poke 53265,27:poke 53281,0
  123. 8999 rem ------ here we go again -----
  124. 9000 x1=0:y1=0:x2=40:y2=24:poke 35265,27:t=0:print"[147]"
  125. 9100 poke 1024+(y1*40)+x1,160:poke 55296+(y1*40)+x1,2
  126. 9200 poke 1024+(y2*40)+x2,160:poke 55296+(y2*40)+x2,6
  127. 9300 t=t+1
  128. 9400 y1=y1+1:x2=x2-1
  129. 9500 if t<15 then goto 9100
  130. 9600 poke 1024+(y1*40)+x1,160:poke 55296+(y1*40)+x1,2
  131. 9700 poke 1024+(y2*40)+x2,160:poke 55296+(y2*40)+x2,6
  132. 9800 t=t+1
  133. 9900 x1=x1+1:y2=y2-1
  134. 10000 if t<30 then goto 9600
  135. 10100 poke 1024+(y1*40)+x1,160:poke 55296+(y1*40)+x1,2
  136. 10200 poke 1024+(y2*40)+x2,160:poke 55296+(y2*40)+x2,6
  137. 10300 t=t+1
  138. 10400 x1=x1+1:x2=x2-1
  139. 10500 if t<40 then goto 10100
  140. 10550 for b=0to10
  141. 10600 poke55296+(y1*40)+x1,10
  142. 10700 poke55296+(y1*40)+x1,15
  143. 10800 poke55296+(y1*40)+x1,7
  144. 10900 poke55296+(y1*40)+x1,1
  145. 11000 poke55296+(y1*40)+x1,15
  146. 11100 next:print"";
  147. 11200 for b=0to 24:print"[152]                                        ";:next
  148. 11300 poke53281,12:gosub5
  149. 11400 print"[147]"
  150. 11500 poke53281,11:gosub5
  151. 11600 poke53281,0:gosub5
  152. 11700 :
  153. 11750 print"              basic bites !"
  154. 11760 print"[151][195][152][195][155][195][153][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][155][195][152][195][151][195]"
  155. 11800 print:print"credits:"
  156. 11900 print:print tab(5)"dosmode:             brix"
  157. 12000 print tab(5)"swinger:             brix"
  158. 12100 print tab(5)"shadow :             brix"
  159. 12200 print tab(5)"shadow of.. fader:   dow jones"
  160. 12300 print tab(5)"full screen plasma:  dow jones"
  161. 12400 print tab(5)"tron-part:           brix"
  162. 12410 print tab(5)"doom-clone:          v.o."
  163. 12420 print tab(5)"music:               echo"
  164. 12500 print:print"[151][195][152][195][155][195][153][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][155][195][152][195][151][195]"
  165. 12700 print ".... press space for the doom clone ...."
  166. 12800 print:print"that's it..folx  bye,bye !"
  167. 13000 get a$:ifa$=""then 13000
  168. 13100 print"[147]"
  169. 13500 print"[154]            [172]           [146][187][154]               ";
  170. 13510 print"             [172][146]   [187] [172][146]   [187] [146][154]               ";
  171. 13520 print"           [167] [146] [190] [188][146]  [146] [190] [188][146]  [146][165][154]              ";
  172. 13530 print"           [170] [146] [172][146] [187] [146] [172][146] [187] [146]  [146][181][154]              ";
  173. 13540 print"           [182] [146]   [146]  [146]   [146]  [146]  [146][181][154]              ";
  174. 13550 print"          [172]  [146]     [146]     [146]   [146][187][154]             ";
  175. 13560 print"              [146][162][185][162]  [184][146][162][184]     [146][154]             ";
  176. 13570 print"           [146]  G  [146][190]   [188]  G [146]  [146][154]             ";
  177. 13580 print"          [188]  H [146][161]U    [182] [165]  [146][190][154]             ";
  178. 13590 print"           [188] G [146][161]     [182] G [146][190][154]              ";
  179. 13600 print"             [182]  [146][187]   [172]  [146][180][154]                ";
  180. 13610 print"               [185]{$60}[185][183][183]    [146][154]                ";
  181. 13620 print"            [161] [146][191]   [184][191]    [146][161][154]               ";
  182. 13630 print"             [182]  [185][175]  [191]    [146][154]       [162]    [146][187][154]  ";
  183. 13640 print"[154]             B [146][180] B[191]  [191]   [146][154]     [172]  [146][191][162][188]  [146][187][154] ";
  184. 13650 print"              [146][161]  B [146] [184]    [146][154]    [172] [146][191][188]   [191]  [146][154] ";
  185. 13660 print"               [146][180]     [172]   [146][154]   [172] [146][191]   [146]   [191] [146][154] ";
  186. 13670 print"            [188]   [146][187]  [172]    [146][190][154]  [172] [146][191]   [146]    [146][191] [146][154] ";
  187. 13680 print"             [188]         [146][190][154]  [172] [146][191]     [146]  [146][191] [146][190][154] ";
  188. 13690 print"               [184]     [146][184][154]   [172] [146][191]        [146][191] [146] [154] ";
  189. 13700 print"                 CCC[146][154]    [172] [146][191]        [146][191] [146][190][154]  ";
  190. 13710 print"                    [146][154]   [172] [146][191]        [146][191] [146][190][154]   ";
  191. 13720 print"                    [146][154]  [172] [146][191]        [146][191] [146][190][154]    ";
  192. 13730 print"                    [146][154] [172] [146][191]        [146][191] [146][190][154]     ";
  193. 13740 print"                    [146][172] [146][191]        [146][191] [146][190][154]     
  194. 13800 [137] 13800
  195.